home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / connect-line / cl / rexx / uniconify.clrexx < prev   
Encoding:
Text File  |  1995-11-26  |  825 b   |  39 lines
  1. /*
  2. **  $VER: CL-Uniconify.clrexx 0.001 (16 Nov 1995)
  3. **
  4. **        © 1995 Ralf Ramge
  5. **
  6. **  PROGRAMNAME:
  7. **      CL-Iconify.clrexx
  8. **
  9. **  FUNCTION:
  10. **
  11. **      Demonstrationsskript für Connectline 5.0
  12. **
  13. **      Connectline © 1986-1995 Oliver Wagner, Mathias Mischler
  14. **
  15. **      Deiconifiziert sämtliche Connectline-Fenster.
  16. **
  17. */
  18.  
  19. /* rexxsupport.library öffnen */
  20.  
  21. if ~show('L','rexxsupport.library') then do
  22.     if ~addlib('rexxsupport.library',0,-30,0) then do
  23.         say 'rexxsupport.library nicht gefunden !'
  24.         say 'Bitte kopieren Sie diese Library von'
  25.         say 'Ihren Workbench-Disketten nach LIBS:'
  26.         exit 10
  27.         end
  28.     end
  29.  
  30. portlist=showlist(P)
  31. do x=1 to words(portlist)
  32.     port=word(portlist,x)
  33.     if left(port,2)='CL' then do
  34.         address value port
  35.         'SHOW'
  36.         end
  37.     end
  38. exit
  39.